home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / biz / demo / Reflections4De.lha / Ref4Demo / skripte.lha / kette.men < prev    next >
Text File  |  1996-07-26  |  925b  |  57 lines
  1. REFSKRIPT
  2. GET_JA_NEIN "Beschreibung"
  3. GET_RESULT res
  4. IF_STR_EQUAL_GOTO res NEIN w1
  5.    DISPLAY_TEXT_FILE kette.doc
  6. >w1:
  7.  
  8. GET_XYZ Kettenglied Radius Breite #Punkte
  9. RETURN_IF_ABBRUCH 1
  10. GET_RESULT res
  11. COPY_WORD res 1
  12. GET_RESULT rad
  13. COPY_WORD res 2
  14. GET_RESULT breite
  15. COPY_WORD res 3
  16. GET_RESULT np
  17. ;Mnp=np//(np+1)
  18. MOD np 4
  19. GET_RESULT np1
  20. IF_EQUAL_GOTO np1 0 w2
  21.   FUNCTION np+4-np1
  22.   GET_RESULT np
  23.   
  24. >w2:
  25. GET_XYZ Kette Dicke #Glieder #Segmente
  26. RETURN_IF_ABBRUCH 1
  27. GET_RESULT res
  28. COPY_WORD res 1
  29. GET_RESULT rad1
  30. COPY_WORD res 2
  31. GET_RESULT ng
  32. COPY_WORD res 3
  33. GET_RESULT nseg
  34.  
  35.  
  36.  
  37. GET_STRING 'Name'
  38. RETURN_IF_ABBRUCH 1
  39. GET_RESULT name
  40.  
  41. OBJ_NEW kette 3
  42. GET_RESULT kett
  43. AKT_KP_DREI kett
  44. CALL kette.skr rad breite np ng rad1 nseg name
  45.  
  46.  
  47. KP_EXIST name
  48. GET_RESULT res
  49. IF_STR_EQUAL_GOTO res JA w3
  50.          MELDUNG 'nicht geklappt'
  51.          RETURN 0
  52. >w3:
  53. PKL_ADD kette
  54. PLOT_PKL
  55.  
  56. RETURN 1
  57.